CAAMercury_EclipticLongitude <-
function(JD){
.Call("CAAMercury_EclipticLongitude", JD)
}
